Shareware Grab Bag/Shareware Grab Bag.iso/003/library.arc/BLANK.PRG

Text File | 1979-12-31 | 9.5 KB | 411 lines

* WRITER COMMAND FILE
* WRITES CHECKS FROM ACCFILE & PAYOUT FILES
* WARREN MCKENNA 07/12/82
* SET SCREEN OFF
         SET PRINT ON
         SET CONSOLE OFF
         STORE 1 TO CT
         STORE CHECK:NO+1 TO CHECK:NO
         ? " "
          STORE STR(MPAYMENT,12,2) TO MDOLLARS
          DO WHILE $(MDOLLARS,CT,1) = ' '
          STORE CT+1 TO CT
          ENDDO
          STORE $(MDOLLARS,CT,12) TO MDOLLARS
         ? " "
         ? " "
         ? " "
         ? " "
         ? DUEDATE+'  '+DESCRIPT+'   $'+;
         $(MDOLLARS,1,LEN(MDOLLARS))
         ? '          '+MMESSAGE
         ? ' '
         ? ' '
         ? ' '
         ? ' '
         ? ' '
         ? ' '
         ? ' '
         ? ' '
         ? ' '
         ? ' '
         ? ' '
         ? ' '
         ? ' '
         ? ' '
         ? ' '
         ? '  '
         ? '  '
         ? ' '
         ? ' '
         ? "                                 "+ACCNO
         ??"     "+LOANNUM
         ? " "
         ? ' '+CHR(31)+' THE SUM OF $'+;
         $(MDOLLARS,1,LEN(MDOLLARS)-3)
         ?? 'DOLS AND'
         ?? $(STR(MPAYMENT,12,2),11,2)
         ?? 'CENTS'+CHR(30)
         ? ' '
         ? ' '
         ? '                                                    '+;
         DUEDATE+'    $'+;
         $(MDOLLARS,1,LEN(MDOLLARS))
         ? " "
         ? "            "+TRIM(FPAYEE)+TRIM(LPAYEE)
         ? "             "+TRIM(ADDRESS1)
           IF $(ADDRESS2,1,1) <> ' '
         ? '             '+TRIM(ADDRESS2)
         ? '             '+TRIM(CITY:STATE)+' '+ZIP
         ? ' '
         ? ' '
         ? ' '
         ? ' '
         ? '             '+CITY:STATE+' '+ZIP
         ? '  '
         ? ' '
         ? ' '
         ? ' '
         ? ' '
          SET PRINT OFF
          SET CONSOLE ON
RETURN






















TES CHECKS FROM ACCFILE & PAYOUT FILES
* WARREN MCKENNA 07/12/82
* SET SCREEN OFF
STORE CHR(14) TO ST
STORE CHR(15) TO SP
STORE 0 TO CT
SET TALK OFF
  ERASE
    SELECT PRIMARY
    USE PAYOUT INDEX PACC
    GO TOP
     SELECT SECONDARY
     USE ACCFILE INDEX JACCT
     GO TOP
     SET SCREEN OFF
    ? CHR(14)
     SET SCREEN ON
    ACCEPT ' DUE DATE OF CHECK ' TO KEY
    ACCEPT ' MESSAGE TO PRINTED ON CHECKS ' TO MMESSA SC
)) TO Myr
              IF (MMonth*30)+(  
            WAIT
            STORE F TO LOOKING
            RETURN
            ELSE 3
            ENDIF 7
            ENDIF  6
        ELSE 4
         IF S.BALANCE < P.MPAYMENT   2
          @ 12,18 SAY ST+' NON-SUFFICIENT FUNDS TO COVER AMOUNT OF CHECK '+SP
          WAIT
          STORE F TO LOOKING
          RETURN
         ELSE 5
         SELECT SECONDARY
         STORE STR(#,5) TO REC
         REPLACE BALANCE WITH BALANCE-MPAYMENT
         SELECT PRIMARY
         (MMonth*30)+(  
            WAIT
            STORE F TO LOOKING
            RETURN
            ELSE 3
            ENDIF 7
            ENDIF  6
        ELSE 4
         IF S.BALANCE < P.MPAYMENT   2
          @ 12,18 SAY ST+' NON-SUFFICIENT FUNDS TO COVER AMOUNT OF CHECK '+SP
          WAIT
          STORE F TO LOOKING
          RETURN
         ELSE 5
         SELECT SECONDARY
         STORE STR(#,5) TO REC
         REPLACE BALANCE WITH BALANCE-MPAYMENT
         SELECT PRIMARY
               ? ' '
         ? ' '
         ? ' '
         ? ' '
         ? ' '
         ? ' '
         ? ' '
         ? ' '
         ? ' '
         ? ' '
         ? ' '
         ? ' '
         ? ' '
         ? '  '
         ? '  '
         ? ' '
         ? ' '
         ? "                                 "+ACCNO
         ??"     "+LOANNUM
         ? " "
         ? ' '+CHR(31)+' THE SUM OF $'+;
         $(MDOLLARS,1,LEN(MDOLLARS)-3)
         ?? 'DOLS AND'
         ?? $(STR(MPAYMENT,12,2)        ? ' '
         ? ' '
         ? ' '
         ? ' '
         ? ' '
         ? ' '
         ? ' '
         ? ' '
         ? ' '
         ? ' '
         ? ' '
         ? ' '
         ? ' '
         ? '  '
         ? '  '
         ? ' '
         ? ' '
         ? "                                 "+ACCNO
         ??"     "+LOANNUM
         ? " "
         ? ' '+CHR(31)+' THE SUM OF $'+;
         $(MDOLLARS,1,LEN(MDOLLARS)-3)
         ?? 'DOLS AND'
         ?? $(STR(MPAYMENT,12,2)         ELSE  6
         ? '             '+CITY:STATE+' '+ZIP
         ? '  '
         ? ' '
         ? ' '
         ? ' '
         ? ' '
          SET PRINT OFF
          SET CONSOLE ON
         ENDIF 4
         SELECT SECONDARY
         USE B:POSTFILE
         APPEND BLANK
         REPLACE REFERENCE WITH MMESSAGE
         REPLACE REFDATE WITH DUEDATE
         REPLACE AMOUNT WITH MPAYMENT*-1
         REPLACE ACCNO WITH P.ACCNO
         REPLACE PAYEE WITH LPAYEE
         REPLACE TRAN2)         ELSE  6
         ? '             '+CITY:STATE+' '+ZIP
         ? '  '
         ? ' '
         ? ' '
         ? ' '
         ? ' '
          SET PRINT OFF
          SET CONSOLE ON
         ENDIF 4
         SELECT SECONDARY
         USE B:POSTFILE
         APPEND BLANK
         REPLACE REFERENCE WITH MMESSAGE
         REPLACE REFDATE WITH DUEDATE
         REPLACE AMOUNT WITH MPAYMENT*-1
         REPLACE ACCNO WITH P.ACCNO
         REPLACE PAYEE WITH LPAYEE
         REPLACE TRANE STR(MMONTH,2,0)+$(DUE,3,4)+MYR TO NEWMONTH
        REPLACE P.DUEDATE WITH NEWMONTH
       SELECT SECONDARY
       USE ACCFILE INDEX JACCT
       &REC
       SELECT PRIMARY
       &RECORD
       SKIP
            ENDIF 5
           ENDIF 3
          ELSE  7
               SELECT PRIMARY
               SKIP
             ENDIF 2
 ENDDO      LOOKING
ENDIF 1
   ERASE
  @ 12,10 SAY ST+' ALL CHECKS PRINTED FOR THAT DATE '
  @ 13,10 SAY ' RETURNING TO MENU '+SP
RETURN




   REPLACE TRANE STR(MMONTH,2,0)+$(DUE,3,4)+MYR TO NEWMONTH
        REPLACE P.DUEDATE WITH NEWMONTH
       SELECT SECONDARY
       USE ACCFILE INDEX JACCT
       &REC
       SELECT PRIMARY
       &RECORD
       SKIP
            ENDIF 5
           ENDIF 3
          ELSE  7
               SELECT PRIMARY
               SKIP
             ENDIF 2
 ENDDO      LOOKING
ENDIF 1
   ERASE
  @ 12,10 SAY ST+' ALL CHECKS PRINTED FOR THAT DATE '
  @ 13,10 SAY ' RETURNING TO MENU '+SP
RETURN




yr
              IF (MMonth*30)+(  
            WAIT
            STORE F TO LOOKING
            RETURN
            ELSE 3
            ENDIF 7
            ENDIF  6
        ELSE 4
         IF S.BALANCE < P.MPAYMENT   2
          @ 12,18 SAY ST+' NON-SUFFICIENT FUNDS TO COVER AMOUNT OF CHECK '+SP
          WAIT
          STORE F TO LOOKING
          RETURN
         ELSE 5
         SELECT SECONDARY
         STORE STR(#,5) TO REC
         REPLACE BALANCE WITH BALANCE-MPAYMENT
    



yr
              IF (MMonth*30)+(  
            WAIT
            STORE F TO LOOKING
            RETURN
            ELSE 3
            ENDIF 7
            ENDIF  6
        ELSE 4
         IF S.BALANCE < P.MPAYMENT   2
          @ 12,18 SAY ST+' NON-SUFFICIENT FUNDS TO COVER AMOUNT OF CHECK '+SP
          WAIT
          STORE F TO LOOKING
          RETURN
         ELSE 5
         SELECT SECONDARY
         STORE STR(#,5) TO REC
         REPLACE BALANCE WITH BALANCE-MPAYMENT
       SELECT PRIMARY
               ? ' '
         ? ' '
         ? ' '
         ? ' '
         ? ' '
         ? ' '
         ? ' '
         ? ' '
         ? ' '
         ? ' '
         ? ' '
         ? ' '
         ? ' '
         ? '  '
         ? '  '
         ? ' '
         ? ' '
         ? "                                 "+ACCNO
         ??"     "+LOANNUM
        LSE 5
         SELECT SECONDARY
         STORE STR(#,5) TO REC
         REPLACE BALANCE WITH BALANCE-MPAYMENT
       SELECT PRIMARY
               ? ' '
         ? ' '
         ? ' '
         ? ' '
         ? ' '
         ? ' '
         ? ' '
         ? ' '
         ? ' '
         ? ' '
         ? ' '
         ? ' '
         ? ' '
         ? '  '
         ? '  '
         ? ' '
         ? ' '
         ? "                                 "+ACCNO
         ??"     "+LOANNUM
         " "
         ? ' '+CHR(31)+' THE SUM OF $'+;
         $(MDOLLARS,1,LEN(MDOLLARS)-3)
         ?? 'DOLS AND'
         ?? $(STR(MPAYMENT,12,2)         ELSE  6
         ? '             '+CITY:STATE+' '+ZIP
         ? '  '
         ? ' '
         ? ' '
         ? ' '
         ? ' '
          SET PRINT OFF
          SET CONSOLE ON
         ENDIF 4
         SELECT SECONDARY
         USE B:POSTFILE
         APPEND BLANK
         REPLACE REFERENCE WITH MMESSAGE
         REPLACE NNUM
         " "
         ? ' '+CHR(31)+' THE SUM OF $'+;
         $(MDOLLARS,1,LEN(MDOLLARS)-3)
         ?? 'DOLS AND'
         ?? $(STR(MPAYMENT,12,2)         ELSE  6
         ? '             '+CITY:STATE+' '+ZIP
         ? '  '
         ? ' '
         ? ' '
         ? ' '
         ? ' '
          SET PRINT OFF
          SET CONSOLE ON
         ENDIF 4
         SELECT SECONDARY
         USE B:POSTFILE
         APPEND BLANK
         REPLACE REFERENCE WITH MMESSAGE
         REPLACE FDATE WITH DUEDATE
         REPLACE AMOUNT WITH MPAYMENT*-1
         REPLACE ACCNO WITH P.ACCNO
         REPLACE PAYEE WITH LPAYEE
         REPLACE TRANE STR(MMONTH,2,0)+$(DUE,3,4)+MYR TO NEWMONTH
        REPLACE P.DUEDATE WITH NEWMONTH
       SELECT SECONDARY
       USE ACCFILE INDEX JACCT
       &REC
       SELECT PRIMA